home *** CD-ROM | disk | FTP | other *** search
/ Alpha CD-ROM Bonus Pack / Alpha CD-ROM Bonus Pack.iso / life / shared.dir / 00501_CHECK VIDEO.ls < prev    next >
Encoding:
Text File  |  1995-01-16  |  564 b   |  16 lines
  1. on checkVideo
  2.   set IBM to 256
  3.   set requiredColors to 256
  4.   set requiredDepth to 8
  5.   if the machineType = IBM then
  6.     if the colorDepth < requiredDepth then
  7.       set theMessage to "This program requires a display system with at least " & string(requiredColors) & " colors." & RETURN & RETURN & "If your system is capable of " & string(requiredColors) & " colors, " & "set the video driver in the Windows Setup program and restart Windows."
  8.       alert(theMessage)
  9.       return 0
  10.     end if
  11.   else
  12.     set the colorDepth to requiredDepth
  13.   end if
  14.   return 1
  15. end
  16.